home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / usr / lib / tcl / TclInit.tcl < prev   
Encoding:
Text File  |  1995-07-20  |  1021 b   |  34 lines
  1. #-----------------------------------------------------------------------------
  2. # TclInit.tcl -- Extended Tcl initialization.
  3. #-----------------------------------------------------------------------------
  4. # $Id: TclInit.tcl,v 1.3 1995/01/26 10:51:23 zibi Exp $
  5. #-----------------------------------------------------------------------------
  6.  
  7. #
  8. # Unknown command trap handler.
  9. #
  10. proc unknown args {
  11.     if [auto_load [lindex $args 0]] {
  12.         return [uplevel 1 $args]
  13.     }
  14.     if {([info proc tclx_unknown2] == "") && ![auto_load tclx_unknown2]} {
  15.         error "can't find tclx_unknown2 on auto_path"
  16.     }
  17.     return [tclx_unknown2 $args]
  18. }
  19.  
  20. set auto_index(buildpackageindex) {source [info library]/buildidx.tcl}
  21.  
  22. # == Put any code you want all Tcl programs to include here. ==
  23.  
  24. if !$tcl_interactive return
  25.  
  26. # == Interactive Tcl session initialization ==
  27.  
  28. if ![info exists tcl_prompt1] {
  29.     set tcl_prompt1 {global argv0; return [file tail $argv0]>}
  30. }
  31. if ![info exists tcl_prompt2] {
  32.     set tcl_prompt2 {return =>}
  33. }
  34.